JOGOS PARA O SEU 
MICROCOMPUTADOR 
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Como tínhamos previsto na edição de Agosto de «JOGOS 
SORTIDOS», o número de respostas ao inquérito ultrapassa 
as previsões mais optimistas. De tal forma que, só com o 
auxílio da informática, poderemos fazer a leitura das 
sugestões que nos chegaram e continuam a chegar. 
Desta magnífica colaboração, que agradecemos, iremos 
extrair linhas de acção futura que conduzirão, certamente, à 
melhoria acentuada de «JOGOS SORTIDOS». Neste 
momento, já há indicações preciosas que merecem uma 
análise muito atenta. Tendo em conta o volume e a qualidade 
dessas indicações, pensamos que só na edição de Janeiro de 
1987 será possível relançar «JOGOS SORTIDOS» mais ao 
gosto dos leitores, mais regular na data da saída e mais 
eficaz na ocupação dos tempos livres. 

Entretanto, podemos anunciar que os três prémios que 
instituímos para sortear de entre os milhares de boletins 
recebidos, serão atribuídos no dia 22 de Outubro de 1986 
pelas 18.30 horas na Rua Duque de Palmela, 37-2.º Dt.º — 
1200 Lisboa na presença de delegados do Governo Civil de 
Lisboa e dos leitores que quam assistir à extracção das 
«bolas». 

Os nomes dos premiados serão publicados na edição de 
Novembro de «JOGOS SORTIDOS» e no semanário 
«EXPRESSO» de 1 de Novembro. 
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ENVIE-NOS OS SEUS PROGRAMAS ORIGINAIS 
E GANHE PREMIOS 


Colabore connosco, enviando-nos o seu programa original, do seguinte modo: 


1. Nome, morada, idade e n.º de telefone. 
2. O programa de preferência em cassette, indicando o tipo e a capacidade do computador. 
3. Uma descrição geral do jogo com as instruções necessárias. 
4. Uma explicação detalhada da função das várias partes do programa. 


Para: JOGOS SORTIDOS - Rua Duque de Palmela, 37, 2.º-Dto. - 1200 LISBOA 
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Das profundezas da Galáxia, do planeta Arg, acaba de 
chegar o superpoderoso Vortex. Como sempre, as suas 
intenções não são boas. Prepare-se para assistir «in loco» 


às consequências da acção que encomendou aos GARES 

(Grupos de Acção Revolucionária «Especialistas do Q W 
Spectrum») e pelas quais ele nunca será responsabilizado. 

Os GARES colocaram uma potente bomba nas caves do 

Castelo Rathbone, cujos efeitos são imprevisíveis. 


O seu papel é o do ingénuo andróide que guarda as caves A 

do castelo — o seu adversário, neste jogo, controla a 

"bomba. 

O andróide tem como missão desmontar a bomba, antes ” X 


que ela faça ir pelos ares a torre do castelo, mas os GA- 


RES previram a eventualidade dela ser descoberta antes 
do rebentamento e montaram uma pequena mina com 
um sistema de controlo remoto que detonará a bomba se 


o andróide não se apressar. 


As chaves de controlo são: 


ANDROÓIDE i 


MINA 
E T Y U 
E J 
C B N M 


Se o jogador que controla a mina quiser dar uma esprei- 
tadela à sua própria posição, aquele que joga pelo an- 
dróide terá que olhar para o lado, por um momento, para 


que a «mina» prima a tecla «H» que lhe mostra a posição. 


Chave do Gráfico VDG 


es Ba 
E Edna 
Ho Toto AE A 
Er ars atu 
DORSO R IST Yy 
“7aAss EM 


“Lines 1-14 Input names of players. 


1 REM É 1985 WRENCH 
2 REM +5ET UF+ 
3 BORDER 7: INK 
LS : PRINT INK 3;:“ 


«OR SPECT 
DEFINING T 
"PLERSE LAI 


E MRENMLI Ts 


RiMA 13 Hot 
HE U.D.G.SC;AI 14,9; 
à Dia 


4 0 SLB SVDR 


S PRINT AT 9D,55.,.,, POKE 236 
86,8. REM CAPS LOCK ON 

6 PRINT AT 14,9; INK 9; +INPU 
T NAMES 4" 

7? INPUT “NAME OF DROID: “; LI 
NE DS 


8 IF LEN D$>6 THEN LET C$=D9( 
4 TO 6) . 


9 IF CODE D$,)1Z2 OR D9=""* THE 
N GO TO 7 

180 INPUT “NAME OF MINE: “; LIN 
E M$ 


26 


11 IF LEN H$>6 THEN LET M$=M$% 
1 TO 6) 
12 IF CODE M$>)122 OR M$="" THE 
N GO TD 18 
13 IF H4$=D$ IHEN GO TO 10 
14 FOR x=2] TO & STEP -1: BEEP 
.0):X- PRIME AT (ABS X-2]),0; O 
HER 1: PAPER X 4;..: NEXT X: FOR 
Xx=] 10 S90: NEXT XxX: FOR X=0 TO 2 
41. BEEP .91.x: RANDUUHIZE USR 328 


2: NEXT x 


Lines 200-205 Set player positions. 


220 REti +INITIAL ISE+ 


221 INK O: PAPER 7: BORDER 7 


204 REM PLAYERS x POSITIONS 
205 LET X=3. LET xXx1=14 


Lines 400-421 Display the grid. 
400 REM +DISPLAY+ 


4120 CLS 

420 PRINT AT 4,0; ” pá 
7 7 7 A e 
E A ASS Fa 
ESPE AM árias 
“SEA SS É Po 
MC EO MR ONES 
SE. ee pata <a 
ASS AG À US À 
ESSE 4 DEST ILAA 
E ES ES AE 
AE À ARA ES 
APRE 4 tie emiemor 

mm 
421 III 1 PiIUI Q,64: DRAI! 98.9 
8: Plo! 96.175: DRA 0,-1S: DRAU 

159,0 


Lines 425-457 Choose start positions. 


425 REIM 1.tIJUSE SIARI POSITION+ 
426 PRINT AT 20,0; INK 2; “(des "; 
INK 4; PRESS KEY FOR START POS 
ITION"; INK 2; " 


427 REM DROID'S START POSITION 

428 PRIMT AI Q.1Z; "CHOOSE START 
BHLSHO J.L9 * 

42% PRINI BI SACA L 4 

> ada 


430 POKE 23658.5: REM CAPS LOCK 
| 


43) 1 ET AS=IHKErS 

433 IF ASA AMD A$S:>"D" AND 
Ag<>"“L AND ASc>0xX" THEN GO TO 4 
32 

434 IF A$="A” THEN LET v=14 

435 IF A$="'D" THEN LET Y=18 

4536 IF Ag="“1)" THEN LET v=22 

437 IF Ag$='x" THEN LET v=26 

438 BEEP .05,180: BEEP .05,12: P 
RINT AT GS. 14:" 

439 PRINT.RAT Xv: CARBSAT X41,Y; 
se 

442% REII HIHE 5 START POSITION 
441 PRIHI AT 0,26; e 

442 PRI] AI 2,26, BRIGHT 1,MS$ 
443 PRINT AT 17,.2;:"6 J Y 
IN 

444 FOKE 23655.8: REM CAPS LOCK 
445 LET AS=INKEYS 

447 IF AS<>"G" AND AS<>"S" AND 
R$<>''Y'" ANDO AS<>"N" THEN GO TO 4 
44 

448 IF A$='G'" THEN LET Yw1=3 

449 IF Ag=".J" THEN LET Yw1=7 

450 IF AS$="Y THEN LET w1=11 
481 IF At="Nº THEN LET Y1=15 
asSz BEEP .05,10: BEEP .05,12 
453 PRINT AT 17,2; 

454 PRINT AT 28,0 


455 PRINT AT 20,3; 
T 04,05" P" 

4558 PRINT AT 21,5,5" 
INVERSE 1;,;* 

457 LET B=312 


INK 0," ;R 


INK O: 


Lines 500-560 If you're playing the droid, it's now 
your move. 


S02 REM +MAIN LOOP + 


S01 REM DROIDS MOVE 
S02 PRINT AT 2,13; 
BRIGHT D;“'S MOVE 
.vs.12 
S03 LET AS=INKEYS 
S04 LET X$="DUEADZXCO” 
SOS FOR Z=1 TO 8: IF A$=X81Z) T 
HEN GD TO sos 


BRIGHT 1,08; 
BEEP 


505 NEXT Z 

507 50 TO SOs 

508 LET CzD: LET Xx2=X: LET YV2=Y 
SS GO SUB 2000 

S10 IF C=0 THEN BEEP .5S,10: GO 
TO S93 

S20 PRINT AT X+1,Y%; "a" 

SeS BEEP .95,10: BEEP .os,iz 
SZ8 IF X=3 THEN PRINT AT X,Yv;" 
SRA, VP | GO TO 530 

529 PRINT AT KX,Y;" TT“";AT Xx+42,Y; 
SI0 LET XX: LET Yv=Y2 

S35 POKE USR “A'",2ss 

S40 IF X=3 THEN POKE USAR “A',1S5 
S45 PRINT AT X,v; "AM ;AT X+1,Y; 
a 


SSQO IF X=X1 AND Y=Y1 THEN GO TO 
3220 
S60 IF x=14 


THEN GO TO 4000 


Lines 600-680 Now, it's the mine's turn. 


600 REM MINE'S MOVE 

601 PRINT AT 2,13; BRIGHT 1;M8; 
BRIGHT 0;""S MOVE “+ BEER 
105, le 

S02 LET ASg=INKEYS 

6203 LET XE="'TYUGUBNMA" 

804 FOR Z=1 TO 9: IF Ag=xs(Z) T 


HEN GO TO 807 

808 NEXT Z 

608 GO TO sea 

607 REM CHECK IF MOVE IS LEGAL 
808 IF Ab=T' AND X1i-1=X AND Y14 
-3eY THEN GO TO 817 

Sos IF Ag='y AND Xx1-1=X AND Y1 
+1=Y THEN G0 TO 817 

610 IF Atg="U' AND x1-1=X AND v1 
+5=Y THEN GO TO 817 

611 IF Ag='"'G'! AND xXi=xX AND v1-4 
sY THEN GO TO 817 

612 IF Ag='J! AND XLuX AND v1+4 
sY THEN G0 TO 617 

613 IF Ag="B" AND x1+41=Y AND Y1 
-BuY THEN GO TO 817 

614 IF Ag='N' AND Xx1i+L=xX AND Y1 
-L=Y THEN 60 TO 817 

615 IF Ag='M" AND X1+414=X AND Y1 
+3=Y THEN 00 TO 817 

818 00 TO sao 

6817 BEEP .5,10: GO0 TO 608 

820 IF ABc>"H' THEN GO TO 40 
625 PRINT AT 18,0; "fes VIEW MINE 


“3 POSITION? 
626 PRUSE Q: 


(YZ4N) tp 
LET Zé=INKEYS 


827 IF Zêu'Nº THEN PRINT AT 18, 
END a PAUSE BD: GO TO 802 
628 IF zg='Y' THEN GO TO 630 
62º 60 TO 626 

630 PRINT AT 16,0;,,;“ " 

631 PRINT AT X1+1L,Y1; "mm 

632 PAUSE Q 

893 PRINT AT XLeL,;VA; 

635 PAUSE OB: G0 TO s0R 

63% PRINT AT 10,0;,," 

B4D LET CaO:; LET X2QnX1; LET YR 
Ya 

650 DO SUB 2000 

655 IF” Ce=0 THEN BEEP .5,160: 00 
TO 602 


880 LET x Lex? LET yvinva 
685 BEEP .05,10: BEEP .05,12: F 
OR Cai TO 10: NEXT Cc. 


O REBENTAMENTO 


670 LET B=B-1: PRINT AT 21,8,“ 
IF B=8 THEN 60 TO 3000 

580 50 TO So” 

1999 REM +CHECK + EXECUTE MOVE + 


Lines 1999-2038 Check and execute move. 


2000 IF Ag<>X$(1) THEN GO TO 200 
s 

2001 IF Xx2=3 OR X2+%L2=17 THEN RE 
TURN 

2002 LET X2=X2-1: LET v2=Y2-3 
2003 LET C=1: RETURN 

2205 IF Ag<)X$(2) THEN GO TO 201 
Q 

2206 IF Xx2=3 THEN RETURN 

2007 LET Xx2=X2-1: LET Y2=72+1 
2008 LET C=1: RETURN 

22010 IF A$<>X$8(3) THEN GO TO 201 
s 

2011 IF X2=3 OR x2+Y72=29 THEN RE 
TURN 

2012 LET Xx2=X2-1: LET v2=v2+5 
2013 LET C=1: RETURN 

2015 IF Ag<>xg$g(4) THEN GO TO 202 
[Pal 

EDS TF x2+4642-17 THEt RETHBRI! 
2017 LET vazve-s 

22018 LET C=1: RETURN 

2220 IF Ag<>)xX8(5S) THEN GO TO 202 
s 

2021 IF x2+y72=29 THEN RETURN 
022 LET Y2=Y2+4 

22023 LET C=1: RETURN 

22025 IF Ag<>)x$(6) THEN GO TO 203 
2 

20256 IF xXx2=-14 OR Xx2+Y2=17 THEN R 
ETURN 

2027 LET X2=Xx2+1: LET Yva=y2-S5 
2028 LET C=1: RETURN 

2030 IF Ag<.>X$8(7) THEN GO TO 203 
s 

2031 IF X2=14 THEN RETURN 

2032 LET X2=X2+1: LET Yy2=y2-1 
2033 LET C=1: RETURN 

22035 IF Ag<>xX$(5) THEN RETURN 
22035 IF X2=14 OR x2+Y2=29 THEN R 
ETURN 

2037 LET Xx2=X2+1: LET v2=v72+3 
2038 LET C=1: RETURN 


Lines 3000-3050 Bang goes your droid — mine's a 
winner. 


32000 REM +ROBOT DEATH + 
3010 REM DEATH MARCH 


3020 BEEP .8,-1a: DEEP .8,-12: B 
EEP .3,-12. DEEP .6,-12: BEEP .9 
,-O: BEEP .3,-10: BEEP .,7,-10: 8 
EEP .3,-18: BEEP .6,-1&: BEEP .4 
,-13: BEEP .7,-1R 

32030 CLS 

3040 PRINT AT 10,10; BRIGHT 1; I 
NUERSE 1;M8; BRIGHT QB; INVERSE Q 
DO WINS!" 

3050 00 TO 4080 


Lines 4000-4120 Now the tables are turned and the 
droid's won. 


4200 
4210 
“2020 


REM «ROBOT UIN+ 
REM VICTORY TUNE 
FOR X=1 TO & 
4030 BEEP ,.2,7.: BEEP 
2,4: DEEP .R,R: BEEP 
2,0: BEER 12,8: BEEP 
- 2,4: BEER 2,7 
4040 NEXT X 
«250 cLs 
4070 PRINT AT 10,18; 
NVUERSE 1;D4; 
50 WINS!" 


12,5: BEEP 
12,0: BEEP 
.R,R: BEE 


BRIGNT 1, T 
BRIOGMNT O; INVERSE Q 


420860 PAUSE Q 
4090 CLS 
4100 PRINT 


8 LURENCH=" 
4110 LET Cam": 
USR “"A'",4B 
4120 00 TO BS 


LET Mún"": POKE 


Lines 9000-9999 These lines define the UDGs. 


STOP 
REM «DEFINE UDG'S+ 
FOR X=USR “A'' TO USR 
READ A: POKE X,A 
7230 NEXT X 
042 DATA 15,16,99,72,255,128,18 
2,182,255,19,229,9,241,21,213,21 
3,143,162,159,128,255,45,90,247, 
21,90,148,24,240,96,192,128: REM 
Data for player 
9050 DATA 143,160,159,128,255,94 
;/68,127,21,90,148,24,240,32,64,1 
es: REM Data for Peal Feet 
VOOS UMIM L,Zx,4,0,1L0,5a,04 leo ,a 
5S,255,255,255,255,255,255,255,2 
SS,0,0,20,0,20,0,20,255,3,7,13,21,4 
3,867,1758,171,86,172,72,176,96,19 
2,0,255,2,4,5,15,32,64,128. REM 
Data for bLock 
90720 DATA 0,3,3,15,29,59,55,127, 
2,192,192,240,2458,252,252,254,12 
7,127,63,63,31,15,3,0,254,254,25 
:,252,248,240, 192,0: REM Data fo 


se.e 
200 
2010 
9020 


dl 1 tado +7 


29282 DATA 14,17,49,565,155,125,14 
3,144,0,0,90,0,255,90,240,51,0,0,0 
,2,240,8,8,.240,144,1453,1944,143,12 
44 ,144,135,245,15,240,532,224,64., 


64 , 192,0: REM Data for hand 


939994 RETURN 


“À tona da água. 


Uma rã caiu num tanque donde tenta, desesperadamente, sair. A sua única esperança de salvação é saltar sufi- 
cientemente alto para apanhar os objectos de que necessita para sobreviver. 

Por cima dela, passa um tapete transportador com os objectos vitais: partes dum escadote que, quando apanhados, 
permitirão à rá sair do tanque; esponjas que servem para chupar parte da água; ácido que destrói parte do escadote 
e baldes. 

O segredo está em calcular o tempo do salto, ao segundo exacto, de forma a permitir à rã apanhar o objecto que 
mais lhe convém. 

E qual é o prémio para tanto esforço? Quando, finalmente, a nossa rã consegue sair deste malfadado tanque há 
logo outro que a espera, mas, do qual, ainda é mais difícil escapar. 


ATER =LTIHE 
SCORE: SS 
H/7SCORE: OS 


SO +L- LEVES e! 
So L 
SB A- 

LISTA 1 AS +- ER qe: 

SB +- 

1 REM SABHSHHHHHHHHHHHHHHHHHO SS t- P-SPONGE 
fUnderl iped characters+ SO +- 

tare entered in x SS W-BUCKET 
X*GRAPHICS mode. + eg L- 

AHHH 18 4- H-LADDER 
1989 REM ESPRR LOG L- 


1918 REM *% STIPIAN SOFTWARE '85+% 
1928 REM JHHHHHSREISHRIIRIHHHHE 


bojo REPORT: 


1938 POKE 23659,2., . 
1948 BORDER 9: PAPER 9: CLS : PR GAME -O0UER ANOTHER GO” (wz/N) 


INT PAPER 61 INK 21 FLASH 11 BR 


a-ACID 


IGHT 14º WATER-L INE 
“: FLASH 9 
1959 PRINT INK 74"* You control 1978 PRINT AT 21,91 PAPER 64 INK 1189 NEXT i 
a frog in a tank gradually fi 15 FLASH 15 BRIGHT 145" PRESS & 1199 NEXT r 
lling with water. Youjump to a co NY KEY TO CONTINUE... “: IF INK 1298 DIM as(5) 
nveyor belt above, toobtain the o Evs="" THEN GO TO 1978 1219 DIM mt(5) 
bjects upon it.” 1988 GO SUB 2598 1228 DIM c(5) 
1968 PRINT INK 75""Objects on t 1999 LET hi=g. 1239 DIM 98(5) 
he Conveyor belt... "“: PRINT INK 1106 LET 1i=3: LET 1=.2: LET spd 1248 LET g8(1)="E*: LET c(1)=3 
41"'" A LADDER TO AID IN THE ESC ad CMT asia 1259 LET 98(2)="S": LET c(Z/=6 
APE A SPONGE TO MOP UP THE WAT 1260 LET 9g8(3)="nº: LET c(3)=4 
ER A BUCKET TO ADD TO THE VAT 1118 BORDER SG: PAPER 9: CLS : BR 1278 LET g8(4)="E": LET ct4)=5 
ER ACID TO EAT AWAY THE LADDE ENT. dt 10MG 1289 LET 9g8(5)=" “; LET c(5)=g 
Rº: PRINT INK 7457” CONTROL JUMP 1128 FOR i=15 TO 8 STEP -.3 1298 FOR i=1i TOS 
BY KEY "9'*: PRINT INK 75** Sc 1139 BEEP .95,i 1399 LET aS(i)=gsti) 
ore by how far you get up thetan 1148 NEXT í 1319 LET mtil=cti) 
k.º: PRINT INK 65'* If you es 1158 FOR r=1 TO 3 1329 NEXT 1 
cape a more periloustank awaits. 1168 FOR i=14 TO 29 2006 REM ASHHHHDDHHHHHEEHDHHHH 


ein 002 1179 BEEP .95,i a 28198 REM Screen Routine 
28 


À TONA DA ÁGUA 


2926 REM JSD 

2930 LET d=33: LET h=lá: LET x=1 

é 

2848 CLS : BRIGHT 1 

2959 PLOT 1,175: DRAW 159,9: DRA 

W 6,-155: DRAW -159,0: DRAW 9,15 

s 

28646 INK 2 

20780 PRINT AT 7,49; "6B(LEE ESKR* 

2989 LET cal=55 

28090 FOR i=8 TO 17 

2198 PRINT INK 6;AT i,9;jcal;"« 

"s INK ZE" L. Rº 

2119 LET cal=cal-5 

2128 NEXT i 

2138 PRINT AT 18,7; "SEBEBBBB* 

2149 PRINT INK 6;AT 8B,125'ºT* 

2159 INK 7 

21690 PLOT 95,195: DRAW INK 314-2 

74 

2178 PLOT 157,175: DRAW 94,8: DR 

aW B,-155: DRAW -94,9: DRAW B,1S 

s 

21890 PRINT AT 1L,IFºTANK: "SIKSS 

INK SJAT 1,20; "WATER-L INES 

21998 PRINT INK 4;/AT 5,290;"H/SCO 

RE: ";Hi 

2206 PRINT INK 4;AT 7,20; "LIVES 
203.14 


22180 PRINT INK 3S;AT 19,20; "KEY: 


2220 INK 5 

2238 PRINT INK 6;jAT 12,215"5"5 
INK 7254" -SPONGE * 

2248 PRINT INK S;aAT 14,215"0"4 
INK 74º -BUCKETº 

2258 PRINT INK S;AT 16,215"E"] 
INK 75" -LADDER* 

2260 PRINT INK 4/AT 18,217 "A"| 
INK 75"-ACID" 

2270 PRINT AT 28,1; "REPORT:* 


22868 PRINT PAPER 3j INK 4;AT x, 

LOS ECSAT x+1,101"Gº 

22998 PRINT INK 6;AT 3,298; "SCORE 

: “15 

23080 PLOT 103,d: DRAW OVER 14-33 

2,9 

2318 LET d=d+] 

2320 LET rd=21-INT (d/8) 

2338 BEEP .Bt,d-60: PLOT 193,d: 

DRAW INK 5; OVER 15-39,9 

2348 IF rdch THEN GO TO 3239 

2359 GO SUB 3FgHig 

23698 IF INKEY$S="9" THEN GO TO 2 

389 

2378 GO TO 2398 

2388 PRINT INK SIAT hs 103º4.º% | 

NK S$AT. h+i, IDICE*? LET gxex-2: 

O TO 2418 

2398 LET x=x-2 

2498 PRINT AT x+2,10;" "SAT x+3, 

RD sm 

2418 BEEP .B1,5: PRINT INK 4;AT 
x, 195"E"4 INK 4G/AT x+1,105"G" 

2420 IF x<=4 THEN GO TO 2459 

2438 GO SUB 3939 

2448 GO TO 2399 

2450 LET m$=aS(3): LET t=m(3) 

2469 LET a$S(3)=" ": LET m(3)=g9 

2478 PRINT INK t;AT x-1,18;m$s 

2488 PRINT AT x,19;" "JAT x+1,19 
” “AT £-L 0)” 

2498 LET x=x+1 

25906 IF x=h+i OR x=h THEN LET x 

=h: GO TO 2549 

25198 PRINT PAPER 9; INK 4;AT x, 

IDE JAT x+1,104"<º 

25280 GO TO 2479 

2538 LET x=hº PRINT ; PAPER 3; I 

NK G;AT x, IBPCECGAT x+1,101"G" 

25346 IF t=5 THEN GO TO 3439 

25598 IF t=6 THEN GO TO 3158 


2568 IF t=3 THEN LET o=-1: LET 
5=s+5: GO TO 3JJ69 

2570 IF t=4 AND h<1é THEN LET o 
=+1: LET s=s-5: GO TO 3349 

2588 GO TO 2289 

2598 FOR i=i TO 19: READ pS: FOR 
n=8 TO 7: READ a: POKE USR pS+n 
sa: NEXT nº: NEXT ií 

2698 DATA *“b",126,255,255,255,12 

6,0,0,0 

2618 DATA "+",1802,66,153,189,189 
1,255, 126, 126 

2628 DATA "9",126,69,90,129,129, 

66, 356, 1982 

2638 DATA "1",14,31,31,31,223,31 
531,14 

2640 DATA “r",112,248,248,248,24 

8,248,248,112 

2658 DATA "tº,14,4,4,124,254,194 
,51195,98 

2660 DATA "5",0,390,63,127,126,25 

2,248,112 k 

2678 DATA "*p",126,66,255,255,255 
1 126,126,126 

2680 DATA "“a"*,24,24,24,126,255,2 

55,255,255 

2698 DATA “e*,195,255,195,195,19 

5, 195, 255, 195 

2780 RESTORE 

27186 RETURN 

3088 REM JEI III + 

3918 REM Conveyor 

SUZ0 REM SIRER EEE III 

30390 LET spd=spdt+il 

S048 IF spdci THEN GO TO 3F14g 

3959 LET spd=9 é 

3969 FOR i=1i TO 4 

39078 LET abiil=as(i+1) 

S088 LET mli)l=m(i+1) 

3098 NEXT i 

S19H LET t=INT (RNDK4)+1 


É dra 


o UR 
=, 


a, 


o. 


S1IIO LET as(S)i=gS(t): LET m(5S)=c 
(t) 

S1290 LET as(1)=as(5): LET m(iij=m 
(3) 

3139 PRINT INK Z;AT 4,65"1"5; IN 
K 724º. "4 INK m(2)$a$S(2)5 INK 75º 
“4 INK m(3)1a$S(3)4 INK 725" "5 TI 
NK m(d4)ja6S(4); INK 725º. "4 INK mí 
L)jas(1)4 INK 25"C* 


3149 RETURN 

3139 LET r=INT (RNDX4) 

3169 PRINT PAPER 3; INK 4;AT x, 
IB" ECJAT x+1,101"6" 

317298 PRINT INK Z;AT 21,15ºMOPPE 


D UP "jrj"” mm/WATER ” 
3189 PLOT 193,d: DRAW OVER 1;-1 
2,0 


3199 IF d-r<=33 THEN LET d=d+r: 
GO TO 3219 

3200 LET d=d-r 

3219 PLOT 193,d: DRAW OVER 1;-3 
92,8 


30 


À TONA DA ÁGUA 


3228 GO TO 2238 

3239 PRINT INK Z;AT 21,15" AAARR 
GGH'!'”; INK 75” DROWNED IN *;"T 
aNK "F14Sº 

3248 FOR i=28 TO & STEP -1 

3259 BEEP .1,i 

3268 NEXT i 

3278 LET líi=li-l: IF 1i=8 THEN 

GO TO 3299 

3288 GO TO 1119 

3298 IF s>hi THEN LET hi=s 

3399 PRINT INK 65AT 21,1;"GAME- 

OVER"; INK 4; FLASH 1;” ANOTHER 
GO? (Y/N) ” 

3319 IF INKEYS="y" OR INKEYS="Y* 
THEN GO TO 1198 

3328 IF INKEY$S="nº OR INKEY$S="N" 
THEN - STOP 

3339 GO TO 3319 

3348 PRINT INK Z;AT 21,1;ºACID: 
-LADDER LENGTH DECREASES" 

3358 GO TO 3378 


35369 PRINT INK 7;AT 21, 1;"LADDE 
R LENGTH INCREASES e: 

3378 LET h=h+o: PRINT INK 3j;AT 
h, 19;ºL*": LET xmh 

3389 IF h<>5 THEN GO TO 2288 
33980 PRINT INK 7Z;AT 21,15ºYOU H 
AVE ESCAPED FROM TANK "S1X19/257 


"o LEl 12]+.2 
3499 IF s>hi THEN LET hi=s 
3419 FOR i=1i TO 258: NEXT 1 


3428 GO TO 1119 

35439 LET r=INT (RNDXKB) 

3448 PRINT PAPER 3; INK 4;AT x, 
LBJ" PAT x+1L,109"1” 

3459 PRINT INK 7Z;AT 21,15" TANK 
FILLS WITH "5r;" mm/WATER* E 
3469 PLOT 193,d: DRAW OVER 17-35 
2,8 

3478 LET d=d+r 

3488 PLOT 193,d: DRAW OVER 15 IT 
NK 5;-39,8 

Js498 GO TO 2238 


O cricket é, como todos sabem, um jogo tipicamente inglês e 
cuja divulgação, ao contrário de muitos outros também com a 
mesma origem, nunca conseguiu atravessar o Canal da Mancha, 
excepção feita a países de implantação dos britânicos. 

Com a ajuda do Spectrum será, talvez, possível divulgar este 
jogo que continua a ser um mistério para muita gente, com jo- 
gadores a atirarem uma bola para outros que lhe dão uma pan- 
cada e fazem uma longa corrida. E há também uns pauzinhos 
que, de vez em quando, se deitam abaixo. 

Que os europeus não o percebam é uma coisa, mas que os 
britânicos vibram intensivamente com ele, é uma verdade. 

Com a ajuda do 48K poderemos assistir a partidas de cricket 
com a particularidade de se poder pôr em confronto equipas 
apenas britânicas, ou de uma delas contra equipas nacionais de 
países onde este povo implantou os seus hábitos e costumes: 
Austrália, Paquistão, Nova Zelândia, Sri Lanka, etc. 

Imagine-se a ver uma bola batida em cheio e com raiva, que 
vai cair para além dos espectadores, não permitindo a continua- 
ção da jogada, e o consequente delírio dos espectadores que se 
levantam dos seus lugares glorificando o batedor. É assim que 
se inícia uma tarde de cricket no écran do seu computador pes- 
soal. 

O objectivo é obter o melhor resultado possível ou atingir um 
resultado pré-estabelecido. O programa está preparado para reter 
as equipas de Essex da Inglaterra e a escolha é entre 40 ou 50 
contras (overs). Qualquer das equipas pode ser mudada alterando 
as linhas que se seguem (em que x$ é Essex/Inglaterra e f$ a 
opositora): 

802 & 812 (regional/regional) 809 & 819 (regional/internacional) 
2002 & 2501 — dados (regional/internacional) 
2004 & 2503 x$ Essex/Inglaterra 

Os opositores são escolhidos a esmo e não afectam o desen- 
volvimento do jogo. 

Depois de cada jogada'o painel de resultados pode ser copiado 
para uma ZX Printer. 

Os espectadores de cada lado do painel levantam os braços 
sempre que é obtida uma pancada de seis ou é derrubada uma 
meta (paulito). Depois de cada contra (jogada) pode obter, por 
opção, q número de pontos e o número de pontos previsto. O 
painel de resultados mostra o total de jogadas pontuadas, as 
corridas do batedor, o total quando a meta é derrubada, os 
«overs» do lançador, metas derrubadas e o número de lança- 
mentos. 

Deve utilizar 3 chaves: 1 para as pancadas defensivas, 2 para 
pancadas fortes de ataque, 3 para pancadas agressivas. 

Os detalhes estão contidos no programa. 

Os User Defined Graphics aparecem em maiúsculas e devem 
entrar no modo gráfico. São: A-M meta, N espectadores, O braços 
ao alto, P espectadores com os braços levantados, Q indicador 
para os lançadores. 


Variáveis 


V (1) resultados do jogador, no painel: 

1 variável para o jogador, sem resultado 
bw número do lançador 

lw resultado do derrube da última meta 
wkt número de metas derrubadas 

tot total de pontos nesse momento 

- OV «overs» feitos 

pl resultado actual do jogador 

no número do batedor 


.- 
. 


- 2502-2552 apresentação do écran 


Cricket 


bal número da bola na jogada a decorrer 
v número a esmo (random) mais fórmula 
f coeficiente (total-over) 
q total elevado (para determinado coeficiente de jogada) 
ovs número de «overs» escolhido (40 ou 50) 
p «over» de 40 (para determinado coeficiente de jogada) 
tq=p (para determinar coeficiente da jogada) 
z (bal* 4+1) posição para o «display» 
hi total inicial que se pretende atingir 
rr Tot-hi, rs hi tot. (Para «vencer por jogadas» no painel) 
sk factor de habilidade escolhido 
r$ STRS$r 
t$ STR$t 
c$ resposta da chave (cópia) 
e$ data 
w$ nome dos jogadores 
x$ equipa da casa 
f$ equipa visitante 
Respostas das chaves: 
s$ nova vez de jogar 
g$ cópia 
y$ alguns detalhes da partida 
q$ instruções 
b$ novas instruções . 
i$ correcção de detalhes 


«line by line» 


40-92 fixa as variáveis 

110-150 verifica as chaves para introdução 

160-340 resultado para uma determinada bola 

350-360 pára a meio a marcação de pontos 

370-400 faz sair a cópia de resultados 

410 verifica os resultados anteriores para que possa sair o resul- 
tado 

420-470 faz sair a copia do resultado pré-requerida 

480-493 retoma o jogo depois da saída dos resultados 

500-560 adiciona as metas derrubadas e as corridas ao resultado 
do jogador 

5970-630 imprime o resultado da bola na devida posição 

640-670 incrementa as variáveis 

690-720 imprime novos dados, actualizados, se necessário, a 
seguir a cada bola 

730 confirma se as metas são igual a 10 no.fim de cada jogo 

740 verifica se há mais bolas e regressa ao jogo 

750-751 verifica se BAL=1, se sim, «end of over» e apaga o quadro 
7152-760 verifica se O fim «over» foi atingido, se não, retoma o 
jogo 

770 Imprime «fim da pontuação». Pergunta se quer cópia 
800-921 imprime quadro de resultados 

930-958 cópia das opções, opção dos detalhes 

970 fim do écran 

1000-1030 se a meta é derrubada, espectadores levantam os 
braços 

1040-1260 título do écran 

1290-1370 instruções 

1390-1408 introduz os pormenores 

1409-1565 UDG (User Defined Graphics) 

1580-1720 formatiza o écran 

2000-2002 se as «overs» são iguais a 40 escolhe a equipa regional 
2500 se as «overs» são iguais a 50 escolhe a equipa nacional 


o 


É 


PAPER 4: BORDER 4: RANDOMIZE O 

G0 SUB 1409: G0 SUB 1040 

GO TO SO 

CLS : BORDER 4: GO SUB 1390 , 
PAPER 7: GO SUE 1580 

GO SUB 2000 

DIM v(11): LET 1=0 k 
LET bw=INT (RND*5)+1 E 

LET 1w=O | 

LET wkt=O: LET tot=O0: LET ov=O: LET pl=0: LET no=i 

LET bal=0: PRINT AT 10,15;0v: PRINT INVERSE 1:AT bw+5,273"u"s: PRINT AT 18 


LET v=O 


90 LET v=INT (RND+*4270)+1+(p1l/30)+(bw-3)+(2-INT (no/2)) 


91 
92 
100 
110 
es 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
zZ00 
310 
320 
és 
330 
340 
350 
360 
370 
380 
390 
400 


IF v<1i THEN LET v=1 

IF v>270 THEN LET v=270 
PAUSE O 
IF INKEY$<>"1" AND INKEY$<>"2" AND INKEVES>"S" AND INKEY$S<>"r" AND INEEY$< > 
THEN GO TO 100 

IF INKEY$="1" THEN GO TO 160 

IF INKEY$="2" THEN GO TO 220 : 

IF INKEY$="53" THEN GO TO 290 

IF INKEY$="r" OR INKEY$="R" THEN GO TO 350 

IF v>=1 AND v<=5 THEN GO TO S10 

IF v>=6 AND v<=132 THEN GO TO 300 
IF v>=133 AND v<=232 THEN GO TO 52 
IF v>=233 AND v<=266 THEN GO TO 53 


IF v>=267 AND v<=268 THEN GO TO 540 
IF v>=269 AND v<=270 THEN GO TO 550 
IF v>=1 AND v<=15 THEN GO TO 510 

IF v>=16 AND v<=146 THEN GO TO 500 

IF v>=147 AND v<=201 THEN GO TO 520 
IF v>=202 AND v<=231 THEN GO TO 550 
IF v>=232 AND v<=234 THEN GO TO 540 
IF v>=235 AND v<=269 THEN GO TO 550 
IF v=270 THEN GO TO 560 

IF v>=1 AND v<=45 THEN GO TO 510 


IF v>=46 AND v<=123 THEN GO TO 500 
IF v>=124 AND v<=181 THEN GO TO 520 
IF v>=182 AND v<=201 THEN GO TO 530 
IF v>=202 AND v<=205 THEN GO TO 540 
IF v>=206 AND v<=230 THEN GO TO 550 
IF v>=231 AND v<=270 THEN 60 TO 560 
IF ov=0 THEN GO TO 100 

IF bal>0 THEN GO TO 100 

LET r=tot/ov: LET r$=STR$ r: PRINT AT 21,1:"Run Rate ” f 
IF LEN r$:3 THEN PRINT AT 21,11;1r5+".0": GO TO 410 

IF LEN r$=3 THEN PRINT AT 21,11s;r$: GO TO 410 


IF LEN r$>3 THEN PRINT AT 21,11;r$( TO 4): GO TO 410 
IF tot>=hi THEN GO TO 490 
LET q=hi-tot+1 

IF ovs=50 THEN GO TO 435 

LET p=40-ov: LET t=q/p: 60 TO 440 

LET p=50-ov: LET t=q/p 

LET t$=STR$ t: PRINT AT 21,17:"Regd.R/R " 

IF LEN t$<3 THEN PRINT AT 21,27;t$+".0": GO TO 480 

IF LEN t$=3 THEN PRINT AT 21,27:t$: G0 TO 480 

IF LEN t$>3 THEN PRINT AT 21,27:t$( TO 4): GO TO 480 

PAUSE O 

IF INKEY$<>"r" AND INKEY$<>"R" THEN GO TO 480 

PRINT INK 4:0T 21,05" NS OROSOROOCOROoa  = GO TO 1 


CRICKET 


490 PRINT INK 45AT 21,17: 0 RONDA AN ORA 
491 PAUSE O 
| 492 IF INKEY$<>"r" AND INKEY$<>"R" THEN GO TO 491 
493 PRINT INK 45AT 21, 15" NANDO SS = GO TO 100 
S00 LET tot=tot+0: GO SUB 980: GO TO 570 
S10 LET wkt=wkt+1l: GO SUB 660: GO SUB 1000: LET pl=0: LET * . «o+1t: GO SUB 980: 


GO TO 580 
Ê 20 LET tot=tot+1: LET pl=pl+1i: GO SUB 980: GO TO 390 


S30 LET tot=tot+2: LET pl=pl+2: GO SUB 980: GO TO 6400 
S40 LET tot=tot+3: LET pl=pl+3: GO SUB 980: GO TD 610 
SSO LET tot=tot+4: LET pl=pl+4: GO SUB 980: G0 TO 420 
560 LET tot=tot+6: LET pl=pl+6: GO SUB 980: GO TO 630 
570 GO SUB 640: PRINT BRIGHT 1; INK Z;AT 12,2;" mu "SAT 13,235" ENPSAT 14,25" E 


y | 

“AT 15,2)" E": GO TO 690 

S80 GO SUB 640: PRINT BRIGHT 1:AT 12,235"El "SAT 13,23 "Ul “GAT 14,25 "EE “FAT 
15 

23"AC "s PAUSE 15: BEEP .01,0: PRINT BRIGHT 15AT 12,23" ECILICSAT 15,25 "BAGE"SA 
Ti 
AZ EL sAT 15,23 "BI": GO SUB 1030: GO TO 690 

590 GO SUB 640: PRINT BRIGHT 1; INK 4;AT 12,272:5" qu "SAT 13,25" E "SAT 14,75" d 


“SAT 15,23" MUS GO TO 690 
600 GO SUB 640: PRINT BRIGHT 1: INK Z;AT 12,7:" mms "SAT 13,235" ml "SAT 14,25" | 


AT 83,24" MR: DO TO 690 
610 G0 SUB 640: PRINT BRIGHT 1; INK S;AT 12,7:" mm "AT 13,25" ul CSAT 14,725" 


Pe o foçes E": GOTO 40 
620 G0 SUB 640: PRINT BRIGHT 1; INK 6;AT 12,72:"u ";AT 13,250 Eu CLAT 14,725" MM 


“AN 19,23” * “3 DO TO 690 
630 G0 SUB 640: PRINT BRIGHT 1; INK 15AT 12,7;" om "MIAT 13,250 HH "5ATIMA,z5" 


“AT 15,23)" “E”; G0 SUB 1020: GO TO 690 

640 LET z=(balw4+1) 

650 RETURN 

660 LET 1=1+1 

670 LET v(1)=pl 

680 RETURN 

690 PRINT AT 6,14;tot 

700 PRINT AT 98,15; ;wkt 

710 PRINT AT 5,225no 

720 PRINT AT 7,21spl 

50 IF wkt=10 THEN GO TO 770 

740 IF bal<é THEN GO TO 80 

Po LF bal=á THEN PRINT FLASH 1:AT 21,0:"END OF OVER": PAUSE 50: PRINT INK 4 
FIPE RP mu" : FOR a=5 TO 25 STEP 4: FOR b=12 TO 15: PRINT AT b,as” 


: NEXT b: NEXT a: LET bal=O: LET ov=ov+1 

751 LET bw=bw+1i: PRINT  INVERSE 1;AT bw+4,27;" ": IF bw=6 THEN LET bw=1 

752 IF ov<40 THEN GO TO 70 

760 IF ov=40 AND 0vs=40 THEN PRINT AT 10,15;"40": LET 1l=1l+1: LET vt1l)=pl: GO T 
O 770 | 

761 IF ov<50 AND ovs=50 THEN GO TO 70 

762 IF ov=50 AND ovs=50 THEN PRINT AT 10,155"50": LET 1l=1+1: LET v(1l)=pl 

770 PRINT FLASH 1:5AT 21,18;:"END DF INNINGS": PAUSE 200: PRINT INK 4:;AT 21,18: 
E A 

780 INPUT "ZX printer copy (y/n)?";c3 

790 IF c$="y”" OR c$="Y" THEN GO SUB 2550: COPY : GO TO 780 

791 IF c$<>"n" AND cé<>"N" THEN 60 TO 780 

800 IF ovs=50 THEN BD TO 911 | 

001 CLBT ERES =" “FOR 1l=t TO 11: PRINT TAB (20)/gv(1d: NEXT À 

802 PRINT AT 1,3;"Chelmsford"“;AT 1,19;es 

B03 PRINT AT 2,14-LEN x$;x$;AT 2,15; "v";AT 2,175€f$%: PRINT AT 5, INT 15-(LEN x$-1 
JtZgns 

804 PRINT 


N 
| 


CRC cnti ceiimimamaa aa o RR cdr 


805 RESTORE 805: FOR a=i TO 11 

806 READ w$ 

807 PRINT TAB (&);w3 

808 NEXT a 

809 DATA "G.Gooch","B.Hardie","k.McEwan","K.Fletcher","k.Font","S.Turner","D.Pr 


 ingle","D.East","N.Phillip","N.Foster","J.Lever" 


B10 GO TO 890 

LA ELS 2 PRENT *070*" : FOR 1=1 TO 11: PRINT TAB (20);v(1): NEXT 1 

G12 PRINT AT 1,3;"Lords";AT 1, 18:e$ 

815 PRINT AT 2,14-LEN x$;x$;AT 2,15; "v";AT 2,17:€$%: PRINT AT S,INT 15-(LEN x$-1 
J/29%$ 

814 PRINT 

815 RESTORE 815: FOR a=1 TO 11 

816 READ w$ 

817 PRINT TAB (&);w£. 

818 NEXT a 

819 DATA “G.Fowler",“C.Tavare","D.Gower","A.Lamb","D.Randall","I.Botham","B.Tay 
lor","G.Dilley","N.Cowans","N.Foster","R.Willis” 

890 PRINT AT 19,6; "TOTAL (";wkt;AT 19,14; "wkts)";AT 19,20:tot 

200 PRINT AT 20,8;0v;AT 20,10;"."sAT 20,1i;bal;AT Z0,13:"overs" 

901 LET rr=tot-hi: LET rs=hi-tot 

902 IF tot=hi THEN GO TO 910 

903 IF tot>hi THEN GO TO 911 

904 IF hiztot THEN GO TO 912 

910 PRINT AT 4,10-LEN x$;x$;AT 4,11;"drew with ";AT 4,21:4F: GO TO 919 

911 PRINT AT 4,11-LEN x$;x$;AT 4,12;"won by “;rr;AT 4,23:"runs": GO TO 919 
912 PRINT AT 4,11-LEN f$;f$;AT 4,12;"won by "srs;AT 4,253; "runs" 

919 PLOT 12,172: DRAW 230,0: DRAW 0,-169: DRAW -230,0: DRAW 0,169 

9220 PLOT 159,31: DRAW 25,0 

921 IF tot>hi THEN LET hiz=tot 

930 INPUT “ZX printer copy ?(y/n)":;g$ 

9240 IF g$="y" OR g$="Y" THEN COPY : GO TO 930 

941 IF g$<>"n" AND g$<>"N”" THEN GO TO 930 
950 INPUT "Do you want another innings?";s$ 

951 IF s$="y" OR s$="Y" THEN GO TO 955 

952 IF s$<>"n" AND s$<>"N"º" THEN GO TO 950 

953 GO TO 970 

955 INPUT “Same match details ?'":y$ 
| 956 IF y$="y" OR y$="yY" THEN BORDER 4: G0 TO 30 

957 IF y$<>"n" AND y$<>"N" THEN GO TO 955 

958 GO TO 29 

970 CLS : BORDER 4: PRINT ": «CLOSE OF. PLAY... ."s: PRINT '"AS the sun slowl 
y sets over the wicket,we must bid farewell to another day's exciting cricket. 
The teams,players and spectators will be here the same time tomorrow — will 


* 


you set a new record runs total,or be bowled out for a record low ?.Will one 


of your batsmen score an all time record over 40 or 50 oversº?Who knows what m 
ay happen in another game of..." 
971 PRINT AT 15,8;"ONE DAY CRICKET" 
972 PAUSE O 
9980 LET bal=bal+i 
990 RETURN 
1000 PRINT AT 18,22;tot: PRINT INVERSE i;AT 7,21;" x 
1010 RETURN 


1020 PRINT AT 16,0; "EEFE"SAT 15,0; "DOC"; PAUSE 35: PRINT AT 15,0:" "AT 1 
6,0 

s “ISINISNI" E RETURN 

1030 PRINT AT 16,29; “ECE";AT 15,29; "DD": PAUSE 35: PRINT AT 15,29" - “sAT 16 
2 

, 


9; "bibity"s RETURN 

1040 CLS : PAPER 4: BORDER 4 

1050 PLOT 15,159: DRAW 15,0: DRAW 0,-22: DRAW -15,0: DRAW 0,22 

1060 PLOT 38,137: DRAW 0,22: DRAW 15,-22: DRAW 0,22 

1070 PLOT 76,137: DRAW -15,0: DRAW 0,22: DRAW 15,0: PLOT 61,148: DRAW 15,0 
1080 PLOT 96,137: DRAW 0,22: DRAW 8,0: DRAW 8,-11: DRAW -8,-11: DRAW -8,0 
1090 PLOT 120,137: DRAW 8,22: DRAW 8,-Z22: PLOT 124,147: DRAW B,O 


k | 
— 1100 PLOT 151,137: DRAW 0,14: DRAW -8,8: PLOT 151,151: DRAW 8,8 


1110 PLOT 31,88: DRAW -15,0: DRAW 0,22: DRAW 15,0 


| ' 3 ; a E 


1120 PLOT 539,88: DRAW 0,22: DRAW 15,0: DRAW 0,-11: DRAW -15,0: DRAW 15,-11 

1130 FLOT 47,88: DRAW 0,22 

1140 PLOT 95,88: DRAW -15,0: DRAW 0,22: DRAW 15,0 

1150' PLOT 103,88: DRAW 0,22: PLOT 119,88: DRAW -15,11: DKAW 15,11 

1160 PLOT 143,88: DRAW -15,0: DRAW 0,722: DRAW 15,0: PLOT 143,99: DRAW —15,0 

1170 PLOT 159,88: DRAW 0,22: PLOT 151,110: DRAW 15,0 
1180 PLOT 2253,144: DRAW 4,0: DRAW 0,-40: DRAW 7,0: DRAW ,-93: PLOT 216,11: DRAW 
0,93: DRAW 7,0: DRAW 0,40: PLOT 216,11: DRAW 20,0,FI/Z 

1190 FLOT 224,144: DRAW 0,-40: FLOT 228,144: DRAW 0,-40: PLOT 226,87: DRAW 0,-62 
: PLOT 220,95: DRAW 64,-8: PLOT 232,95: DRAW -6,-B 

1200 PLOT 199,8: DRAW 0,80: DRAW -32,0: DRAW 0,-80: PLOT 183,8: DRAW 0,80 

1210 CIRCLE 127,40,20: PLOT 127,20: DRAW 0,40: LET a=123: FOR b=20 TO 60 STEP 5: 
PLOT a,b: NEXT b: LET a=131: FOR b=20 TO 60 STEP 3: PLOT a,b: NEXT b, 

1220 PRINT AT té,as"by":;AT 18,2:ºR. Butchár * 

1230 PRINT AT 19,3; 1984" 

1260 INPUT “Instructions ? (y/n)"“sas 

1270 IF a$=*y” OR 4$="Y" THEN BD TO 1290 

1271 IF af<>"n" AND asc >"N" THEN GO TO 1260 

1280 GO TO 1390 

1290 INE 7: CLS : FRINT "INSTRUCTIONS FOR ONE DAY CRICKET": PRINT o" 

1300 PRINT "In this game you act for the side batting.One Day Cricket cons 
ists of 40 overs (County) or 50 overs (International); ending either at the end of 
the allotted overs or the loss of iôwickets,whichever the sooner."”: PRIN 

T “The scoreboard keeps you informed of what is happening after every d 

elivery.": PRINT "For a ball to be bowled press either the keys 1 2 OR 3.": PR 
INT. INVERSE 15AT 19,105 "PRESS ANY KEY” | 

1310 PAUSE O: CLS : FRINT "These keys also simulate the batsmans stroke to th 

at particular delivery.The keys represent as follows...” 

1320 PRINT “"1 DEFENSIVE STROKE”" | 

1330 PRINT "2 ATTACKING/SOL ID STROKE” 

1340 PRINT "3 AGGRESSIVE STROKE" k 
1350 PRINT “"By tactical use of these keys for each ball,you determine the out 

come (NO-SCORE,RUNS SCORED,  OUT).": PRINT "(e.g)Using the 1 key will not prod 


uce as many runs as 2 OR 3 but there is less chance of being out.": PRINT 
INVERSE 1;AT 19,10;"PRESS ANY KEY": PAUSE O: CLS : PRINT "The following statisti 
cs are also determined by the key chosen. (RUNS/OVER: RUNS/WICKET OVERS/ 
WICKET)." 

1:60 FRINT "Apart from these set ratios,alsotaken into account are... ta) B 
atsmans No [1-10] (b)Bowlers No [1-5] (c)Flavyvers current 5 
core For both (a)&(b)the best plavyershave the lowest No. Bt t 
he, bottom left corner of theScoreboard will be a team displayed at random, 
along with their score that you are trying to beat. Before the first inningsthis 

score is determined by choosing a SKILL FACTOR(1-5S)5.": PRINT INVERSE 15AT 


19,10: "FRESS ANY KEY": PAUSE O: CLS 

1361 PRINT “1 being the easiest.This score is then treated as a -hi score- bein 
g updated with your hi totalif that is the case after every innings.After each i 
nnings you have the option of changing the MATCH DATA which will result in a ne 


w randomly chosen target independent of your hi-score.” 

13562 PRINT "By pressing the R key you are given your RUN RATE and the REQU 
IRED RUN RATE to beat the opponents total.This key will only operate at the 

end of an over .Pressing R again will return you to the game.Aât the end 

of the innings you are offered the option of a COPY of both the SCOREROARD 

and SCORECARD ON THE ZX printer." 


1570 INPUT “Instructions again ? (y/n)"s;b$ 

13580 IF b$="y"DR bf="Y" THEN GO TO 1290 

13581 IF b$<>"n" AND b$42>"N" THEN GO TO 1370 

1390 , INK Os: PAPER 72: CLS « PAPER 7: PRINT AT 0,10: "MATCH DATA”: PLOT 75,173:. DBA 
wW 0,-11: DRAW 89,0: DRAW 0,11 

1591 INPUT “Daté"“:mé 

13592 IF LEN e$>12 THEN GO TO 1391 | 4 
135935 PRIN' INVERSE 1;AT 3,3;'"Date o. e 

1394 INPUT “No of overs "sovs 

1.595 IF ovs<>40 AND ovs<>50 THEN GO TO 1594 

15926 PRINT  INVERSE i;aAT 5,3;"Dvers - “mus 

1401 INPUT “Skill Factor (1-5) “isk 

1402 IF sk<>1 AND sk<>2 AND skc<>Z AND sk<>4 AND sk<>5 THEN GO TO 1401 


Kent”, 


Det gr ita A q. À — a o a e Ea ado dial Pa : = 
Na " = 


CRICKET 


PRINT - INVERSE 15AT 7,3;"Skill factor —- “ssk 
LET hi=(4%x0vs) + (sk425) INT (RND*20) +1 
INPUT “Are the above correct'":;i% 
IF i$="y" OR if="Y" THEN RETURN 
IF i$<>"nº” AND i$<>"N”º THEN GO TO 1405 
GO TO 1390 
RESTORE 1409: FOR f=USR "a" TO USR "“q"+7: 
DATA 24,24,24,24,24,24,724,24 
DATA 0,0,0,0,31,531,24,24 
DATA 199,198,198,198,198,198,193,198 
DATA 0,0,0,0,254,254,198,198 
DATA 0,24,56,112,96,0,24,74 
DATA 0,0,0,0,0,0,192,192 
DATA 192,206,223,223,223,206, IF 2, vz 
DATA 192,192,193,193,195,195,199,199 
DATA 192,192,128,128,0,0,0,0 
DATA 12,12,24,24,493,48,96,96 
DATA 0,0,0,0,3,3,7,6 
DATA 192, 192,192,1925192,192,192,192 
DATA 0,0,192,224,112,48,0,0 
DATA 24,536,536,60,66,129,129,129 
DATA 0,0,36,36,66,66,66,66 
DATA 153,165,165,60,66,129,129,129 
DATA 0,56,124,124,124,56,0,0 
RETURN 
CLS : PAPER 7: 
FOR a=3 TO i4: 


READ «xs POKE +,x2 NEXT f 


BORDER O 

PRINT INK S5AT a,0; "BMRMa!: NEXT a 

FOR a=3 TO 14: PRINT INK S;AT a,29; "MEMO: NEXT a 

FOR b=0 TO 2: FOR a=0 TO 31: PRINT INK S;AT boas": NEXT a: NEXT b 

FOR b=21 TO 20 STEP -1: FOR a=0 TO 31: PRINT INK 4;AT b,as"fiM": NEXT a: NE 


FOR a=4 TO 28: FOR b=53 TO 19: PRINT AT b,a:z"M": NEXT b: NEXT a 

PRINT  INVERSE 1:AT 4,13;"TOTAL";AT 5,20;"No + 

PRINT  INVERSE 1:AT 5,25:"Bwl” 

PRINT  INVERSE i1;AT 6,26:"1";AT 7,26:"2";AT B,26;"SAT 9,26; "AVGAT 10,06” 
PRINT INVERSE i;AT 6,14;" ni 

PRINT INVERSE 15AT 8,10; "WKETS";AT 8,155" * 

PRINT  INVERSE is;AT 10,9; "OVERS";AT 10,155" * 

FOR A=5 TO 25 STEP 4: FOR B=12 TO 15: PRINT AT B,A;s” fe 
PRINT  INVERSE 1:;AT 17,18;"LASTº 

PRINT  INVERSE 1;AT 18,18B;"WET";AT 18, E 4 di - 

FOR a=16 TO 19: PRINT AT a, Og "istititdo NEXT a 

FOR a=i6 TO 19: PRINT AT a, 29 PEINIrAM NEXT a 

RETURN 

IF ovs=50 THEN GO TO 2500 
RESTORE 2001: FOR a=1 TO INT 
DATA "“Notts","Sussex","Somerset”, 
"Yorks","“Derbys","Gloucs","Glamorgan” 


NEXT b: NEXT a 


(RNDx16)+1: READ f$: NEXT a 
"Middlesex","“Surrey","Hampshire” 
s"Northants","Lancs”, 


«"Lóies”,”* 
“"Warwicks","Worc 


PRINT  INVERSE 1i;AT 17,5;€%F 

LET x$="ESSEX": PRINT INVERSE 1;AT 6,9:x% 
RE TURN 

RESTORE 2500: FOR a=i TO INT 
DATA "Australia",“India","Pakistan”, 
PRINT  INVERSE i;AT 17,53;f$% 

LET x$="ENGLAND": PRINT INVERSE 1;AT 6,5;x% 
RETURN 

FOR a=3 TO 14: 
FOR a=3 TO 14: 
FOR b=O0 TO Z: 
RE TURN 

SAVE "“oneday” 


(RNDx6)+1: 
“Sri 


READ fzt: NEXT a 


Lanka","“W. Indies","N. Zealand” 


PRINT AT a,0y" "“s NEXT a 
PRINT AT a,29;" "s NEXT à 
FOR a=0 TO 31: PRINT AT b,a;" *: 


NEXT a: NEXT b 


LINE 1 


tm . 


Rock*n'roll 


Gráficos e som para se divertir durante algum tempo, com 
este programa em código-máquina que lhe recomenda- 
mos fortemente. 


O objectivo do jogo é a recolha de todas as jóias que se 
encontram dispersas na caverna e levá-las para a caverna 
do lado. Entretanto, não se deixe atingir pelos fragmentos 
que se desprendem do tecto da caverna e que não res- 
peitam as leis da gravidade que nós conhecemos. 

São três as vidas de que dispõe quando se inicia o jogo. 
Sempre que for atingido por um dos fragmentos, perderá 
uma vida ou todas se deixar esgotar o tempo que lhe é 
concedido para executar a tarefa. 

Tudo parece demasiado simples. Não se iluda porque o 
jogo é suficientemente bem elaborado para lhe exigir um 
bom esforço mental e constitui um gratificante desafio à 


1 BASIC LOADER 


Este curto programa diz-lhe o que deve fazer para forma- 
tar o écran e carregar o programa principal. Introduza-o 
e faça SAVE «ROCKNROLL» LINE «O» no primeiro «bit» 
da fita. 


2 HEX LOADER 


Este é o programa Hex Loader. Grave o programa, corra-o 
e introduza toda a Hex List. 


3 PROGRAMA PRINCIPAL 

Este é o programa código-máquina dissimulado como 
uma peça do Hex Code. Carregue-o no Hex Loader Pro- 
gram, 8 bytes de cada vez, e proteja o código fazendo 
SAVE «ROCKCODE» CODE 31050, 6315, assegurando-se 
que isso será feito só após o BASIC LOADER estar gra- 


sua habilidade. 


10 BORDER O: PAFER O: INK 7: € 
LEAR 29999 

20 PRINT TAB 4:"R O C K Pelo 

= O EA? 


SO PRINT : FRINT “By Neil Balh 150 LET cs=cs+va 

arrie, YOUR SINCLAIR" 160 POKE i+n,va 
59 PRINT 165 PRINT AT 2,n*3;a$( TO 2) 
40 PRINT “ The idea of the Gam 170 LET a$g=as(3 TO 3 

e is to collect all the jewe 180 NEXT n 

ls in a caveto progress onto the 183 INPUT "Checksum "; LINE as 
next cave. "+CHR$ 13+CHR$ 13+" Y 184 PRINT AT 2,25;as$ 


ou must avoid the boulders as th 
ey topple down in the weird ar 


avity. You start the game withth 187 CLS 
ree lives and lose one each ti 190 NEXT i 
me you are hit by a falling ob 200 CLS : PRINT “SAVE CODE AFTE 


ject or the time runs out.” 


30 PRINT AD" 
60 PRINT “ You may use the key 210 SAVE +f$SCODE start,length 
board or a joystick:—"+CHR$ 13+ 220 CLS : PRINT “VERIFYING” 
” Q — Up O - Left 230 VERIFY “"CODE 
A — Down P — Right” 240 CLS PRINT “ALL Ok": STOP 
70 PRINT : PRINT * Z End The 6 1000 PRINT AT 15,0; "ERROR": GO T 
ame, X Lose à Life,” O 20 
Bo PRINT " CAPS SHIFT To Move 31050 0000000000004111 = 82 
On A Page" 31058 1244442111144211 = 307 
9998 PRINT AT 0,03: INK O: LOAD 31066 : 1124421111244321 = 289 
“"“"CODE : PRINT USR 32765 31074 : 1112211112344332 = 272 
9999 SAVE "ROCKNROLL"” LINE O 31082 1 1111111123344333 = 273 
1 REM General Hex Loader 31090 1: 2111111233344333 = 306 
2 POKE 23658,8 31098 : 3211512333344333 404 
35 INPUT "Start Address “star 31106 : 2111111233344332 = 305 
t 31114 : 1111111123344321 = 255 
4 POKE USR "a”, INT (start/256 31122 : 1112211112344211 = 238 
): POKE USR "a"+1i,start-256*INT 31130 1124421111244111 = 271 
(start /256) 31138 : 1244442111142008 = 264 
5 CLEAR start-l 31146 : 0500422222233222 = 2586 
6 LET start=256*PEEK USR "“a"+ 31154 : 2224422222333322 = 340 
PEEK (USR "“a"+1) 311642 : 2224422243333334 = 391 
7 INPUT “Length “slength 31170 : 2224411143333334 = 373 
8 INPUT “File Name ";€%$ 31178 : 1114411144414444 = 388 
lO FOR i=start TO start+length 1186 : 1114411151111111 = 251 
STEP 8 31194 1114411111111111 = 197 
20 LET cs=0 31202 1114411111111111 = 187 
30 PRINT AT O,O0y"Address "si 31210 : 1114412222222222 = 272 
40 INPUT "Hex 8 Bytes", LINE a 31218 : 2224413333333333 = 390 
$ 31226 : 3334413333333333 = 423 
60 IF LEN a$<>16 THEN GO TO 1 31234 : 33342C0405004222 = 256 
000 31242 : 2244444444444122 = 473 
BO LET f4=0: FOR j=1 TO 16 31250 : 1114232431344343 = 343 
GO IF (a$(j)<"o” OR as(j)>"9") 31258 : 2414222431344343 = 361 
AND (a$Stj)<"aA” OR as(j)>"F") TH 31266 : 2414222431344343 = 361 
EN LET f=1 31274 : 2413424441444343 = 456 
100 NEXT 5 31282 : 2413121000044343 = 227 
1OS IF f=1 THEN 60 TO 1000 31290 : 2413320000044343 = 243 
110 FOR n=0 TO 7 31298 : 2415222222244343 = 329 
120 LET y=CODE a$(1)-48: IF y>9 31306 1 24112222222443453 = 325 
THEN LET y=y-7 31314 4 2411333333344343 = 392 


vado na fita. 


130 LET z=CODE 
a$(2)-48: IF z>9 


THEN 


LET z=2-7 


140 LET va=l6xy+z 


185 
000 


KR BASIC LOADER. "* 


IF VAL af<>cs THEN GO TO 1 


“"REMOVE EAR LE 


37 


a a 44 » 
A e 


AR aca dá *”. 


31322 


31330 
31338 
31346 
31354 
31362 
31370 
31378 
31386 
31394 
31402 
31410 
31418 
31426 
31434 
31442 
31450 
31458 
31466 
31474 
31482 
31490 
31498 
31506 


“31514 


31522 
31530 
315336 
31546 
31554 
31562 
31570 
315378 
31586 
31594 
31602 
31610 
31618 
31626 
31634 
31642 
31650 
31658 


* Slé666 


31674 
31682 
31690 
31698 
31706 


31730 
31738 
31746 
31754 
31762 
31770 
3177868 
31786 
31794 
31802 
31810 
31818 
31826 
31834 
31842 
31850 
31856 
31866 
31874 
31882 
31890 
31898 
31906 
31914 
31922 
S1930 
31938 
31946 
31954 
31762 
319710 
31978 
31986 
31994 


— 32002 


32010 
32018 
32026 
32034 
352042 


1 
“ 38 


/ 


1111333333342B07 
0700333333333333 
3333333333333333 
3333333233333323 
3333333333333333 
3333323333414333 
3333333334000433 
3233333340000043 
3333333400000004 

3333334000000000 
4333340000000000 
0433400000050000 
00436D070A004222 
2222222222244424 
2424242424244222 
2222222222244424 
2424242424244222 
2222222222244434 
3434343434344131 

3131313131344434 
3434343434344131 

3131313131344434 
3434343434344131 

313131313154290EF 
0800411111111111 

1114414222222444 

4414414322221333 
3414414442224333 
3414411142224333 
3414422124414444 
4414422123333343 

2214422123333341 

2414422123333341 

4414422123333341 

1114422133333341 

1514280D0A003333 
3333333533333334 
44533344433333343 
3333422243333343 
4433422243333343 
3343422243333334 
4433344433333333 
3334333333333333 
3333444433333344 
4444444444333333 
3333444433333333 
333433333333780B 
0000422224333333 
3334411111142222 
4424414442222222 
2224432222222222 
2224433333333333 
3334433333333333 
3334433333333333 
3334433333333333 
33344333333353333 
3354590E0A004333 
3333333333344323 
2332223333344323 
2323333333344332 
3332233333344332 
3333323333344332 
3322233333344111 

1111111111144112 
1212122212144111 

1222112111144112 
S5212122212144444 


EPROTrHETEeEnER 


Em: 


4444444444444304 = 
0900444444444444 = 


4444454333433343 
3324434323432343 
2324434323432343 
2324434323432343 
2324434323432343 
2:324434323432343 
2324434323432343 
2324434323432743 


ENA NM 


2324433323332333 = 


7334444444444444 
44444501011005414 
344434142272723414 
34143414722223343 
3414341422223345 
34443444722233353 
3333333322224334 
4434443444334334 
1434333411334334 
1434443441334334 
1433343411334434 


32050 
32058 
32066 
32074 
32082 
32090 
32098 
32106 
32114 
32122 
32130 
32138 
32146 
32154 
32162 
32170 
32178 
32186 
32194 
32202 
32210 
32218 
32226 
32234 
32242 
32250 
32258 
32266 
32274 
32282 
32290 
32298 
32306 
32314 
32322 
32330 
32338 
32346 
32354 
32362 
32370 
32378 
32386 
32394 
32402 
32410 
32418 
32426 
32434 
32442 


32466 
32474 
32482 
32490 
32498 
32506 
32514 
32522 
32530 
32538 
32546 
32554 
32562 
32570 
32578 
52586 
32594 
32602 
32610 
32618 
32626 
32634 
32642 
32650 
32656 
32666 
32674 
32682 
32690 
32698 
32706 
32714 
32722 
32730 
32738 
32746 
32754 


ROCK'N'ROLL 


4434443444333335 


3333333333334C00 
0000434333311133 
3334424342334433 
4444424332433443 
3334424433443344 
3344424443344334 
4334421144334433 
4434411114433443 
3444404411443344 
3344404341144334 
4334404334114433 
4434404333113333 
3454420E0A004222 
2433333333344111 
1114222224144144 
4413333334144133 
4444444444144144 
4222222222144111 
1111111111144131 
2131213121344121 
3121312131244131 
2131213121344121 
3121312135244111 
1111111111141FOD 
0900423433343334 
2334423432343234 
3234423432343234 
3234423432343234 
3234423332333233 
3234411111111111 
1114422222222222 
2324422222222222 
2324422222222222 
2324422222222222 
2324453333333333 
332439010A004333 
3433333332244333 
3433333332244444 
1444444442244111 
2111111242244144 
4442244243344333 
3411104343344444 
3414404113344333 
3414404343344344 
4414404143344333 
3114401343344533 
3114401103343801 
0A00534443414344 
4333333433414343 
3333333433444344 
3333333433434343 
3333333433434344 
4333333333333333 
3333344434333434 
4333343334433434 
1433344334143434 
1433343334114434 
1433344434111434 
4333670000000000 
0000000000000000 
0000000000000000 
0000000000000000 
0000000000000000 
000000000000FFBF 
EFFFFFFDFDFFFFEF 
FFFFDFBFFFFFFFF7 
FBFFFFFFFFFFDFBF 
FFFEBFFFFEFFFOFFO 
IISC4EAASDSSBAAB 
BSSSEAABFSSSEAAB 
FSSSFAABFSSS7AAA 
7FS63IFACOFFO0O180 
0O3CO06A00FF0O1558 
SFFC6AAAFFFFDSSS 
7FFEZAACIFFBODSO 
07E002C0018004086 
04080408FFFF 2040 
20402040FFFF0O204 
02040204FFFFOB1O 
08100810FFFF0000 
00001C70228682AA8 
22881C704102FFFF 
FEZFFFFFFDBFFEZF 
7FFE04201C380000 
0810142814282244 
Z2ESC3E7ZC7FFEFFFF 
FEZFFFFFFDBFFE7F 
7FFE04201C380000 


pMnunanananane NU ANENUANNUnNNALAAANANANNENANNENANAMUNNNANUNMUNUNANENNNUNAAÕM 


pe Mt; ST 
461 32762 : 000000€301810000 = 325 
382 32770 : 0000000000000000 = o 
302 32778 : 0000000000000000 = O 
472 32786 : 0000000000000000 = q 
sos 32794 : 0000000000000000 = 0 
475 32802 : 0000000000000000 = q 
491 32810 : 0000000000000000 = O 
440 32818 : 0000000000000000 = q 
408 32826 : 0000000000000000 = O 
456 32834 : 0000000000000000 = q 
454 32842 : 0000000000000000 = O 
438 32850 : 0000000000000000 = O 
421 32858 : 0000000000000000 = O 
326 32866 : 0000000000000000 = O 
374 32874 : 0000000000000000 = O 
294 32882 : 0000000000000000 = O 
377 32890 : 0000000000000000 = O 
493 32898 : 0000000000000000 = O 
304 32906 : 0000000000000000 = O 
219 32914 : 0000000000000000 = O 
347 32922 : 0000000000000000 = O 
363 32930 : 0000000000000000 = O 
347 32938 : 0000000000000000 = O 
335 32946 : 0000000000000000 = O 
149 32954 : 0000000000000000 = O 
333 32962 : 0000000000000000 = O 
425 32970 : 0000000000000000 = O 
424 32978 : 0000000000000000 = O 
424 32986 : 0000000000000000 = O 
421 32994 : 0000000000000000 = O 
252 "33002 : 0000000000000000 = O 
273 33010 : 0000000000000000 = O 
307 33018 : 000000000000003E = 62 
307 33026 : 0032485CFD22B0SC = 769 
307 33034 : 3E10326A522100C4 = 555 
395 33042 : 1101C40110003601 = 286 
273 33050 : EDBO1118C4CD6381 = 1083 
409 33058 : 11EOC4CD638111A8 = 1055 
427 33066 : CSCD63811170C6CD = 1162 
408 33074 : 63812100800400F3 = 438 
320 33082 : 36822310FB36823E = 732 
473 33090 : B8B0ED47EDSEFECSIA = 1239 
407 33098 : BS3EFEDBFEE60120 = 1185 
390 33106 : FB3EF7DBFEE60OICC = 1465 
457 33114 : 048EC93E0O132B4DE = 784 
454 33122 : C92150C301C000ED = 939 
391 33130 : BOC9211400CD7881 = 884 
262 33138 : 2B7DB420FEC9ESCS = 1255 
428 33146 : DS060A3E0O0D3FEIO = 772 
471 33154 : FCO6143E10D3FEIO = 837 
459 33162 : FC2B7DB420EBDIC1I = 1269 
457 33170 : EiC9CDOEB6216190 = 1053 
458 33178 : 115A00CDBABCO604 = 400 
424 33186 : 0E46CDF98506060E = 697 
429 33194 : 45CDF98506080E44 = 752 
444 33202 : CDF985060A0E43CD = 889 
366 33210 : F985060C0E42CDF9 = 934 
363 33218 : 85CD4BB1C93E0032 = 855 
332 33226 : B6BEDDESE111005B = 1107 
221 33234 : 010500EDBOFDESE1 = 1126 
o 33242 : 11055B010500EDBO = 532 
o 33250 : 21DOBECDB9BD3AFF = 1179 
(o) 33258 : FF32B68BEC9DD2IBF = 1275 
(o) 33266 : BFFD21B690CDC78B1 = 1288 
446 33274 : 3SAB6BEA7CBDDZIBF = 1194 
2004 33282 : BFFD21A890CDC781 = 1274 
19736 33290 : A72852DD21BFBFFD = 1130 
1940 33298 : 2Z19A90CDC781A728 = 1071 
1765 33306 : 6ADD21BFBFFD218C = 1120 
927 33314 : 90CDC7B1A7CAAZB2 = 1338 
1406 33322 : DD21BFSFFD217E90 = 1144 
1373 33330 : CDC781A7CAC282CD = 1431 
832 33338 : ESB2CDF182CDFDB2 = 1523 
725 33346 : CDO983CD159321SD = 828 
1399 33354 : 90117A90010300ED = 668 
967 33362 : BOZ1PF6BF117E9001 = 831 
Séb 33370 : OS00EDBOC9CDISB3 = 976 
630 33378 : 215D9011B2900103 = 613 
708 33386 : OOEDBOZ1iIBFBF11B6 = 979 
546 33394 : 970010500EDBOC900 = 764 
sse 33402 : 0000000000000000 = O 
S20 33410 : C3BAB7CDESS2CDIS = 1258 
867 33418 : 83215D9011A49001 = 727 
1716 33426 : 0300EDBOZ1BFBF11 = BOO 
501 33434 : AB90010500EDBOC9 = 932 
246 33442 : CDESB2CDF18BZ2CDIS = 1366 
1215 33450 : 83215D9011969001 = 713 
1716 33458 : 0300EDBOZ1BFBF11 = 800 
501 33466 : 9A970010500EDBOC9 = 918 


o 


33474 : CDESS2CDF1S2CDFD = 1598 34186 
33482 : B2CD1583215D9011 = 774 34194 
33490 : 8890010300EDBOZ1 = 730 34202 
33498 : BFBF118C90010500 = 641 34210 
33506 : EDBOC921A49011B2 = 1150 34218 
33514 : 90010900EDBOC921 = 801 34226 
33522 : 969011A490010900 = 629 34234 
33530 + EDBOC9218890119%6 = 1094 34242 
33538 : 90010900EDBOC921 = BO1 34250 
33546 : 7AP011BB90010900 = 573 34256 
33554 : EDBOC9CDOES42IF6 = 1246 34266 
33562 : BF116AOOCDBABC21 = 782 34274 
33570 : 5D900603CSES3EFE = 988 34282 
33578 : DBFESZABBEE6O4MCA = 1269 34290 
33566 : SBBJ3AABBEEGOZCA = 1024 34298 
33594 : 69B33EBFDBFEE6O01 = 1193 34306 
33602 : CA7783215A901106 = 742 34314 
33610 : OOCDBABCFBO40A74 = B6B 34322 
33618 : 1OFDE1C178A720CC = 1210 34330 
33626 : C9E1ES7E3C77FESB = 1305 34338 
33634 : 20E13E417718DCE1I = 972 34346 
33642 : ES7E3D77FE4020D3 = 1096 34354 
33650 : 3ESA7718CEEICIOS = 924 34362 
33658 : 23CSESCD6C8B118C3 = 1122 34370 
535666 : 210000DD7E0111E8 = 6430 34378 
33674 : OJCDAAB3DD7EO211 = 875 34386 
33682 : 64400CDAAB3DD7EOS = 956 34394 
33690 : 1IOAOOCDAABIDD7E = BBO0 34402 
33698 : 04110100CDAAB3C9 = 729 34410 
33706 : D630ES6F2400CDAP = 1014 34418 
33714 : 30ESC1E109C921PF = 1129 34426 
33722 1 8F11C00BF01040036 = 554 34434 
33730 1 JOEDBOJAB6SFIZCB = 1097 34442 
33738 1 BFJAPFBFD6413D32 = B93 34450 
33746 1 BSBECDOES621CD91 = 1059 34458 
33754 1 1100580Í2000EDBO = 551 34466 
33762 1 JABSGEJCE6OF3I2ZES = 917 34474 
33770 1 BEC64132D46F2118 = 847 34482 
33778 1 C41119C401AF0036 = 4644 34490 
33786 : OAEDBOZIDFSFLiDB = 1058 34498 
33794 : BFOLOJOOEDBOSEO?P = 431 34506 
33B02 1 J29CBEZIABCSILAS = 932 54514 
33810 : CSO1AFOOZ400EDBO =' 840 54522 
33818 : CD7289211400CD6C = 822 STISO 
33826 : BICDASB6JAB9BEAZ = 1185 34558 
33834 1: 2B143AB3BEFEO128 = 734 34546 
33842 : O1C93ACBBFIDFEJO = 949 54554 
s3850 : CB32CBBF1BBOCD34 = 1053 34562 
33858 : B6CD63B62IBFEFI1 = 956 SRSPO 
33866 : C791CDBCB4CDD4B7 = 1373 34578 
33874 : 2Z10A00CD78813AB3 = 734 34586 
33882 : BEFEO120E1C3E283 = 1206 34594 
33890 : CDB88321E29F1113 = 958 34602 
33898 : OOCDBABCCDD487CD = 1240  S4é610 
33906 : 4BB1DSESCSCDEFS1 = 1416 4618 
33914 : CD948121BFBF11EC = 1054 . 4626 
33922 : 91010500EDBOC1IE1 = 982 S4654 
33930 : DIC9ESDSDDELIFDEL = 1776 54642 
33938 : AF321685FD7E0O4DD = 984 S4650 
33946 : 4EO4CDFDB4FD7704 = 1048 54658 
33954 : FD7EO3DD4EO3CDFD = 1142 4666 
33962 : B4FD7703FD7EO2DD = 1109 34674 
33970 : 4EOZCDFDB4FD7702 = 1044 34682 
33978 : FD7EO1DD4EOICDFD = 1138 34690 
33986 : 844FFD7EOÍCDDAB4 = 1146 34698 
33994 1: FD7701FD7EOODD4E = 1051 34706 
34002 : OOCDFDB4FD7700C9 = 1163 34714 
34010 1 477948B9CBFSIACB = 1155 34722 
34018 1 BFE407FE0O92B01IC = 744 34730 
34026 1: C63032CBBFFIC9FS = 1329 34738 
34034 : 3E0132168S5FID60A = 733 34746 
34042 1 C630C9D6304779D6 = 111E 34754 
34050 : 30B04F3AL6BSBIFE' = 851 34762 
34058 1 0A30E4FSAF321685 = 911 34770 
34066 1 FIC630CPOOCD4284 = 1123 34778 
34074 : 3JEOOD3FECDOEB6CD = 1085 34766 
34082 : 518521BC90110501 = 402 34794 
34090 1: CDBABC3EF7DBFEE6 = 1495 4802 
34098 : 1FFEiIF26F6SCB47CC = 1080 34810 
34106 : 5185CB4FCC7BESCE = 1159  z4818 
34114 : S7CCASBSCBSFCCCF = 1298 Z4826 
34122 : BSCB6728CBIBDCFS = 1168  z4g34 
34130 : 06090E17CDF98506 = 445 34942 
34138 1: OBOEO7CDF9853060D = 6438 z46850 
34146 : 0EO7CDF985040F0OE = 443 s4858 
34154 : O7CDF9853E0I3ZCC = 911 Z4B46 
34162 : 91215185222285F1 = 834 34874 
34170 +: C9F506090E07CDF9 = 936 349862 
34178 : B5060B0OE17CDF9BS = 774 34890 


ROCK'N'ROLL 


060DOE07CDF98B506 
OFOEO7CDF9853E02 
32CC91217B852222 
B5F 1C9FS06090E07 
CDF?785060B0E07CD 
F985060DOE 1 7CDF9 
85060F0OE07CDF98S5 
3SE0332CC9121A585 
222285F 1C9F50609 
0E0O7CDF985060B0OE 
O7CDF985060DOE0O7 
CDF985060F0E17CD 
F9853E0432CC9121 
CFB5222265F 109786 
6F 26002929292929 
7901005809062077 
25310FCC921004011 
014001001B3600ED 
B021005811015801 
FFO23607EDBOC93A 
9CBEIDE609A732Z29C 
BECOESCSSADDSFCD 
9C8632DDBFFE3920 
163ADCBFCD5SCB632 
DCSBFFE3920093ADB 
8FCD5C8632DBBFC1 
E1C9SDFEZFCOSESP? 
C93ADBSFFEJSOCOSA 
DCSFFESOCOSADDBF 
FESOCOSE0O132B38E 
C93E0132B38E3ABS 
BESCE6OF TF2BIBEC6 
41532D48FC9110A00 
21C800CDB5031844 
1104002190 1 ACDBS 
03183921530C31118 
[401 BOOOEDBOSEOO 
3S2B36E32AF69ECD3B 
88CDBAS7CDDéBACD 


+» 2986CD6386CDD4B7 


CDD989FB3AAFBEFE 
0128C5FE0228B606 
027610FD3EFEDBFE 
E602CSB3E7FDBFEE6 
01CC04873EFEDBFE 
E604CCOBSB3AB9BE 
AZCBSABIBEAZCAAS 
B6C93E0O132B3BEC6 
SO32CB8FC9OLFEFEB 
ED78E601CA4A8901 
FEFDED76E601CASE 
8901 FEDFED79E602 
CA188901FEDFED78 
E601CA3189C36388 
SEFDDBFEE601COSE 
FEDBFEE6O0O2Z2COSEBF 
DBFEE602CO3SEDFDB 
FEE604C021688711 
2100DDESFDESCDBA 
SCFDEIDDE1C91601 
0028432920313938 
S6204E2E 42616068 


61727269652C20534 
52492D534F 465420 
FS3CSESDSFSCD3AS7 
2100581 140007ESC 
E60777231B7AB320 
FSF1Di1E1CiFBC901 
FEEFED7BE60O2CA4A 
B901FEEFED78E604 
CASEBPOLFEEFED7B 
E610CAISBB9POLFEEF 
ED78E609CAS18B9C3 
638821 E989F 112500 
CDBABCCDBAB7C901 
1IFOOED76EEFF32A8B 
BEE601CAZ1B93AAS 
BEE6OZCALBEBPIAAS 
BEE604CASES93AAB 
BEE609CA4A99C36I 
883E0132B38EC901 
FEEFED7BE6&08CA4GA 
BPOLFEEFED7BE6LO 
CASES90OLFEF7ZED76 
E610CALBBPOLFEEF 
ED78E604CA3Z1B916 


28ESCSDSFSED4BBA 
BEED43BCSEJE0032 


BOBEJSACCPIFEOICA 


ERRO RAF ARIELERRENCEEERRAaN. 


633 
687 
756 
856 
830 
892 
762 
795 
903 
639 
634 
850 
880 
1103 
354 
376 
618 
384 
404 
990 
971 
1387 
9853 
924 
992 
1179 
1099 
1173 
1279 
928 
874 
1018 
698 
714 
610 
433 
848 
1002 
1376 
1165 
1439 
722 
1178 
1324 
1133 
970 
1280 
9267 
1151 
1002 
1391 
1204 
1198 
1049 
1273 
1404 
1401 
969 
1308 
1288 
42 
3585 
691 
548 
1525 
388 
731 
1366 
1358 
1222 
1284 
1103 
1178 
650 
1163 
1099 
987 
263 
1035 
1087 
772 
1364 
1234 
1292 
1103 
1003 


1422 
aes 


1182 


34898 
34906 
34914 
34922 
34930 
34938 
34946 
34954 
34962 
34970 
34978 
34986 
34994 
35002 
35010 
35018 
35026 
35034 
35042 
35050 
35058 
35066 
35074 
35082 
35090 
35098 
35106 
35114 
35122 
35130 
35138 
35146 
35154 
35162 
35170 
35178 
35186 
35194 
35202 
35210 
35218 
35226 
35234 


OFB7FEOZCAE1B7FE 
OICA1 LSBFEO4CAAS 
B7F1D1CiE1C9F1D1 
Ci1ELED4BBABECDB:S 
88CD9266E5S2ABEBE 
3600E 1360522BEBE 
C968260029292929 
0600090150C309L9 
7EA7CBFEOLCBFEOS 
2810FE022828ED4B 
BCSEED43BABECDS:S 
BS5C93AB98E3FDS2B9 
BEESC5SD521BFBF11 
C291CDBC8B43E0232 
AFBEDICIEICISADO 
8EA728D2FE022809 
SABABEFE0239C718 
07 3ABABEFEOFSOBE 
ESDDE 1 SABOBEFEOZ 
2812DD2BCD128920 
ADDD7EO1DD7700DD 
360100C9DD23CD1iZ 
89209BDD2BDD7E00 
DD7701DD360000C9 
DD7ZEOOFEOOC93EO01 
S2BOBESFABABE3SD3Z 
BABEFEFFC2689883E 
0032BABEC36BBS3E 
0232B0OBE SABABESC 
S2BABEFE 10C26888 
SEOF32BABEC36BBB 
SABBSE 3JD32BBBEFE 
FFC268883E0032BB 
BEC36B8B83ABBBE SC 
S2BB8EFEOBC26888 
SEOAS2BBSEC3689B 
SABSBE6F 2600115 
00CDAP30015307909 
1158000150C3CDCA 
B9CDD6SB9CDDZ289CD 
D6891B237AB320EE 
ESDDE 1 DD7E0032B9 
BEDD7EO132BABEDD 


] 


das tita Mi q DAE ei DER 1 E 


.. “e “e 


E E RR 


7E0232BBBE6F 2600 
292929293ABABE4F 
0600090150C30936 
0OS22BEBSECDD989C9 
7EE6F007070707C9 
7EE60FC90203C921 
50C31118C401B000 
3E0032B18E32B28E 
1ABEC41B8A13230B 
CDFAB978B120F1C9 
3AB1BESC3C32B1BE 
FEZ0C03E0032B18E 
FABZ8E3C3SC32B28E 
FE18C03E0032B28E 
C9ESDSCS7EZABIBE 
CD298ACIDIEIC9FB 
FSES456C2C2C0640ES5 
6F 26002929292929 
01187FO9ESDDE1C1 
ODED43AGSEOEO2ZCS 
ED4BA6GBEOCED4ZA6 
BECDAZBAC 1 0608C5 
DD4600DD4E01ES70 
2371E1DD23DD2324 
C110EC793D4F20D7 
E 1E56C2600292929 
2929ESC1E17DB14F 
21405809F 1ES6F 26 
0001CBBE0O97ECBF 7 
DDE1DD7700DD7701 
DD7720DD7721FBC9 
790FOFOFESGEOABAF 


79E61BEE4067C93A 


9DSEFEOZDBFS3SEO1 
J29D6EF 1E60EFEO2 
EFSCCB39BF 1FEO4FS 
CCBCSBF 1iFEOSCCO4 
8CC3769B2150C311 
E0C401BOO0EDBO2Z4 
70C61171C601AF0OO0O 
3600EDB021A8C522 
AABE2170C622ACBE 
2150C301E0OC411B0 
007EESDSCSF5SCDS9 
8BF | CDESBBCDBIBA 
CDSSBBSAB4BEES01 
2808CDO48CCDBCSEB 
1806CDECBECDU4BC 
CIDI ZAAABEZIZ2AA 
8EZAACBE2322ACBE 
E123031B7AB320C1 
2170C611A8C501BO 
00EDB021E0C41150 
C301BOOOEDBOC9GES 
CS2AAA8E7E329D9E 
CIEIC9ESCS6F 2600 
01C08E097E32AE8BE 
CiEi1AZCOD11BB1IF1 
ES2AACHES60O1E11B 
F3ESC53E0232A28E 
FDEi1DDE1DD7ZE1OCD 
658CCOFD7E10OCDES 
BCCoOCDS18BCCBFD7E 
00FD7710FD360000 
H D28AC8BEFDs561001 
AF3IZAEBESZEO 1 3S2AF 
BEC93AAEBEA7CBSE 
0432A28EESCS5SFDEL 
DDE 1 DD7E11CD728C 
CODD7E0O1CD6SBCCO 
FD7EO1CD658CCOCD 
S19CC8FD7E0O0FD77 
01FD360000FD2A8L 
BEFD3S601L01AFI2ZAE 
BESE0O132B48E 32AF 
9EC93FAAEBEA7CBSE 
0832A29EESCSFDE1 
DDE 1DD2BFD2BDD7E 
10CD728CCODD7E0O0O 
CD658CCOFD7EOOCD 
69HBCCOCD5S1IBCCBFD 
7E0O1FD7700FD3601 
00FD2AACBEFD2BFD 
77003E0O1LS2AFBEAF 
S22EBE3S2B4BEC93A 
9DS8SEFEOOCOESF5S2A 
ACOESAAZBE77FLEL 
FEOOC9FSSASGDBEFE 


HMM MM 


PONTOS ANNAN 


656 
629 
3534 
1131 
825 
811 
689 
801 
642 
1363 
8646 
9209 
868 
902 
1327 
1463 
1064 
354 
1029 
838 
1102 
1051 
932 
921 
93:53 
723 
1110 
813 
928 
1127 
1197 
899 
1039 


1079 
1090 
1463 
1242 
917 
1043 
814 
899 
1003 
922 
1304 
1345 
1086 
929 
911 
995 
aa1 
816 
902 
963 
1215 
1026 
1194 
B36 
1428 
g89 
1087 
1492 
1134 
1337 
695 
933 
829 
1146 
1262 
1269 
1178 
1223 
1172 
775 
850 
Boz 
1146 
1246 
1353 
1014 
1222 
i312 
807 
1158 
724 
997 
1261 
1261 
1311 


ROCK'N'ROLL 
35946 : 012008F1FE052806 
35954 : FEOOC9F1IBFASEOL 
35962 : 32B38EC93EFF329B 
35970 : BEC93E00329BBECY9 
35978 : ESDS7ECDCDSCDIE1 
35986 : 1B237AB320F2C9FS 
35994 : SAPABE47F 1BBC9SE 
36002 : 0032998E32986EC9 
36010 : F1CD998C28033299 
36018 : 6E3E0132B79EC9F1 
36026 : FE2330033296898ESE 
36034 : 0032B78EC93E0132 
36042 : B78EC9FS3AB7BEFE 
36050 : 0228D5SFE0O129E0OF1 
36058 : FEOOCAB4BCFEOICA 
36066 : 7EBCFEZOCA64BDFE 
36074 : 16CAB3BDFEODCAGE 
36082 : BDFE1728D011003L 
36090 : 6F260029292919E5 
36098 : DDE1SAPBBESF 2600 
36106 : 110700CDAPSOESSA 
36114 : 998E6F 2600110800 
36122 : CDAPSOESCIELGISE 
36130 : AF9467ES0E0OBE 125 
36138 : E524C5444DCDAAZ22 
36146 : C147AFBODD7EOOFD 
36154 : ESFD2181FF2915EB 
36162 : 26006F3E08904729 
36170 : FD2910FBEB7EFDAS4 
36178 : B277237B5F7EFDAS 
36186 : BSFDE177DD230D20 
36194 : CSEILSAPBBESCIZ9B 
36202 : 9EFE23C03E003298 
36210 : BESA99BESCIZIVBE 
36218 : CD99BCCOAF 32998E 
36226 : C93E0232B76EC9ES 
36234 : FD2ABOSCCDBOL62A 
36242 : 5975C01820023CD535 
36250 : 16EBEiOILBO0O0OEDBO 
36258 : FDCBSOFEFDS600FF 
36266 : FD360A012A3DSCES 
36274 : 2Z1BEBDESED733DSC 
36282 : CDBA1BE1E1223D5C 
56290 : CDBOLESASAICFEFF 
36298 : C20313C9721DB8D1i1 
36306 : 2800CDBASCCD4BB1 
36314 : C97160000536F 7272 
36322 : 792044617669642C 
36330 : 204E6F 2043686561 
36338 : 74696E672C0D5072 
36346 : 6573732043415053 
36354 : 2E20CDOEB63E7FDB 
56362 : FEE60120BF21CD91 
36370 : 110058012000EDBO 
36378 : 21418F117700CDBA 
36386 : BCSEFDDBFEEGOLCA 
36394 : 518ESEFDDBFEE602 
36402 : CA63BESEFDDBFEE 6 
36410 : 0O4CA73BESEFDDBFE 
36418 : E60BCAB6BESEFDDB 
36426 : FEE610CSC323BESE 
36434 : 003237843E4E3287 
36442 : 9F3E203288BBFC3S1A 
36450 : 8E3E3SD3237843E46 
36458 : 32878F352888FCS1A 
36466 : BESAPFBFD64IISCES6 
36474 : 0F32978EC6415329F 
36482 : BFCS1LABESAB6BFD6 
36490 : 303CE607C63032B6 
36498 : BFC3S1ABEO0000000 
36506 : 15300090000000000 
36514 : 0000000000000000 
36522 : 0000000000000000 
36530 : 0000000000000000 
36538 : 0000000000000000 
36546 : 0101000000000028 
36554 : 030717060000F4B0 
36562 : 223635353335222C 
36570 : BO2230223AF14124 
36578 : 3D22223AF142243D 
36586 : 22223AEB413DB022 
36594 : 3022CCB02234223A 
36602 : F1412453D41242BC2 
36610 : BEZ29B02232333239 
36618 : 36222B41293AF 142 
36626 : 243D42242BC2BE28 
36634, : B022323333303122 
36642 1 2B41293AF3413AFA 
36650 : B04124C8B04224CB 


Eu 


UNUSUAL NAME O LAR Ra A A MA A MM MN NM A A MO 


36658 
36666 
36674 
36682 
36690 
36698 
36706 
36714 
36722 
36730 
36738 
36746 
36734 
36762 
36770 
36778 
36786 
36794 
36802 
36810 
36818 


36826 - 


36834 
36842 
36850 
36858 
36866 
36874 
36882 
36890 
36898 
369706 
36914 
36922 
36930 
36938 
36946 
36954 
36962 
36970 
36978 
36986 
36994 
37002 
37010 
37018 
37026 
37034 
37042 
37050 
37038 
37066 
37074 
37082 
37090 
37098 
37106 
37114 
37122 


37130 


37138 
37146 
37154 
37162 
37170 
37178 
37186 
37194 
37202 
37210 
37218 
37226 
37234 
37242 
57 290 
37258 
37266 
37274 
37282 
37290 
37298 
37306 
37314 
37322 
37330 
37338 
37346 
37354 
37362 


oc cool cuco õcejtrcjlc Junco cacau cc acc cocos c 0 ciots don CCO n cd ma o do Cc. cmo tcc cc 0 oc nó do co 00 na 00 00 VOO WO 05 Os 00 


F4B0223635353335 
222CB02231220Dl6 
0000484920544845 
5245204E45494C2C 
ODOD376861742064 
6F20796F 75207761 
6E742060D6520746F 
20646F 203FODODSS 
776974636820636E 
646C657373206C069 
766573204F 46462C 
0D0D536574207374 
617274206C6537665 
6C20746F20412C0D 
0D53657420737461 
72742060679766573 
20746F 20332E 2016 
000053433A303030 
303020204D454E SA 
3030202053544147 
453A412054494D45 
3A30303020323030 
16010A472041204D 
204520204F 205620 
4520522016000050 
4C4541534520454E 
34455220594F 5552 
204E414D452C1602 
00555345205A2041 
4E44205820544F 20 
524F544154452054 
48524F 5547482054 
484520204C455454 
4552532C 16050045 
4E54455220544F 20 
53454C4543542041 
204045545445522C 
160C0C4141412016 
0009544F 4441 597E 
53204245553542046 
49564516040C3120 
4E41422031303336 
3516060C032204148 
5320303733343016 
080C332053432120 
303536393516080L 
34204D4154203032 
3235301 60C0C3520 
53414D2030313338 
3520160002542052 
2049202D2053204F 
2046205420205020 
5220452053204520 
4E20542053160206 
52204F2043204B20 
207E206E207E 2020 
52204F 204C204C 16 
04004279204E 2E42 
61 6C6841772726965 
207F3153938362C20 
594F555220553494E 
4340414952160600 
9468616E6B20796F 
75204C0697A612041 
2C20446176696420 
4320262044204869 
6767731609050031 
29204B4559424F 41 
9244160B053003229 
204B454D505:3544F 
4E204A4F 595335449 
434B160D05003329 
20435353525534F5220 
4A4F 59535449434B 
160F0530034292053 
494E434041495220 
4A4F395535449434B 
161105535292053534 
4152542047414D45 
1613074C41535420 
953434F5245205741 
95320303030303020 
3030303035303030 
3031000001020304 
0306070001020304 
05306070001020304 
0306070001020304 
0306070001020304 
0306070000000000 


